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- أخي الكريم مرحبا بك في عالم تقنية البرمجة بدون كود 

في الحقيقة ان هذا البرنامج قد قمت بتصميمه منذ أيام تحت بيئة البرمجة 
بدون كود كان هدفي هو بناء برنامج يطبق أوامر يقوم بادخالها المستخدم 
مثل برنامج قائمة Run‏ الموجودة في الويندوز 


Type the name of a program, folder, document, ar 
Internet resource, and Windows 3 open it for YoU, 


اسب 


في أول اصدار من البرنامج قمت باستعمال الادوات التالية على النافذة : 

1 - تاکس بو کس ×0 '۲e×†8‏ 

2- زر أمر لتنفيذ الامر الذي قام بادخاله المستخدم 

3 - زر أمر للخروج من البرنامج 

- انا قمت باستعمال جملة الشرط۴] مثلا : اذا كانت قيمة التاکست بوكس 

×0 1×8 تساوي "٥ 2[٥"‏ يقوم البرنامج بفتح برنامج الألة الحاسبة 

ولكن هذه الفكرة غير معقولة لان البرا مج التي يتم تشغيلها من القائمة عدد 

كبير جداااا١١|‏ جداااا| فمن غير المعقول ان تکتبهم كاملا مثل ۰ : „ mspaint‏ 

خll‎ notapad , prefetch , recent ....... 

وقد جاء العبقري المهندس / محمود فايد بإعطائي فكرة رائعة وتتمتل في 

استعمال الماكرو & عني يخلي الامر الذي أدخله المستخدم محل التنفيد 

بدلا من استعمال جملة الشرط [f‏ نستعمل الماكرو آي ان البرنامج سوف 

يكون في خطوة واحدة 

- وسوف نرى في هذا الكتيب الطريقيتن الاولى والذي قمت انا بتصميمها 
والطريقة الثانية وهي للمهندس : محمود فايد 


2% على بركة الله نفتح برنامج تقنية البرمجة بدون كود PWCT 1.4 (Nova)‏ 
او أي إصدار اخر من تقنية البرمجة بدون كود ونقوم بإنشاء مشروع جديد من 
Gui Application Without Coding gi‏ 


Kl Programming without coding.technology ا‎ × 


Fl Edt Data Code: Veto RPT Transporter Package Tools Help 
(GJ# EH $ BE f K LUN N o0 F û $8 FPF BB F 1I1 ® 


E 


xe ver Units Window 


"File: NoName” Kl New File *‏ ؟ 

٠ 7‏ 1 ے 
gË Data Unit : Atoms :‏ 

- Console Application - With Coding 

0 | GUI Application - With Coding 

0 |B Veto Unit : Vetos Console Application - Without Coding 


jÎ Veto Unit : Channels 
j Veto Unit : Connections 
I} RPWI Unit : Goals 


Ul Application - Without Coding 


5 
Ê Clase 


Interaction Transporter 


a 
FD 
2 
چ‎ 


CREATE SERYER 


ETT 


RPWI, Environment (Goal Designer) 


Goal: Min ¥ Goal Designer 


start Point (NOT STEP} 1 The First Step ا‎ 


| steps Tree | step Details | Custom User Interface (Human Language) 
a Siar Fort (NOT STEP) : کک‎ 
5 The First Step نقود دة 1 اآخطا َة الاولى‎ 


بعدها نضغط على زر التفاعل 
Interact‏ 


Transporter 


Interaction 


- كالعادة دائما نقوم بانشاء النافذة الرئيسية للبرنامج بعد الضغط على زر 
التفاعل سوف يظهر مستعرض المكونات : 
Components Browser‏ 


Select Domain : omponents in Domain 


Define New Window 
Window Events 

Window Class 
LoadlActivate WindlowIF ari 
Window!Object Right-T o-Le 
Erase Window 

On key 

Set AutoAdjust On 

Set AutoAdjust OFF 

Get Window Handle 


Interaction Using Transporter 


Defina New Window 


Toa Define new window , pou reed al least lo azziqn Yale to 


Left Height Top.Left width, Height & Name 
Harme 4 اسم الثافذة‎ 


Window Properties [Optional] 


ن ا 
E] window Title: 4 E FC INO SHOW INO AUTORELEASE‏ 
"PWCTICON" gfe | ITUP MOST LIND MINIMIZE‏ 1 
اا رک ج ھچ و اي 
ابقونة الثافذة : windan leon‏ 
bl |NO STSMENLI LIND MA#IMIZE‏ & 
ل ll window Type: T IBIN CAPTINIRI T IMN GIFF‏ 
۴ 4 


ICT) 


EC a 

1 - أداة تکس بوکس ×0 ۲٥×8‏ لادخال الاوامر فيها 

2 زر أمر لتنفيذ الاوامر التي تم ادخالها في 1٠×)80×‏ 

3 زر امر لاغلاق النافذة 

أولا ننشط على الخطوة 0sااأمه)‏ س0لمW1‏ الموجودة في شجرة 
ا 


۳ Wj The First Step 


1ex)B8 0× من المجال 0sاtrوهC نختر‎ 
Components Browser 


Select Domain : Gomponents in Domain 


RadioGroup 
Imagê 
Spinner 
ÛGate Picker 


heck Button 
Progress Bar 
Timer 
RichEditBox 
*ÎÎ | Grid Control 


Interaction USing Transporter 


| Define New TexXBox 


TEE ° r 
Lontral Name text 
| Propertes (Optional) 
| Jın a 

[¥] Height 20 ۰ lw] width 200 

[I Feild [L_l ¥alue 

Font "arial" | Ske | g9 | ت‎ 
4 ۲ 

TT CO FF OI FE 5 


بعد انشاء ال ×0 1×8 نقوم الان بانشاء ازرار الاوامر 
نبدا من زر تنفيذ الاوامر من نفس المجال السابق وهو 0sااأره€‏ نختر 
Button‏ بعنوان )0 واسمه 1ہاb‏ 


Interaction USing Transporter 


DLefina naw button 


Tap | 10 | Left 1 0 | 

ame 

Properiies (Optional) 

Caption "Ok" TIN a | | 
[IID [ J HelpID | | 
l] width 100 | Height 30 | DPeue "FileName.BMP" 


Font "aeial" Test Position ت‎ 
۴ 
E E E E o- 5 


4 


والان مع الزر الثاني وهو زر الخروج من البرنامج تحت عنوان عوهإاZ€‏ 
واسمه ۸2ط 


Interaction USing Transporter 


DLefina naw button 


Mame 
bê 


Properiies (Optional) 


[W1 width 100 [vl Height ف‎ "Fils Names .BMP" 


r 
n en EN FEF 


ه نقوم الان بانشاء الاحداث وهو حدث الضغط على زر ال 0K‏ يقوم 
البرنامج بمناداة اجراء أولا لانشاء اجراء لزر ما نقوم بتنشيط خطوة 
Even‏ nہBut)0‏ الموجودة في شجرة البرنامج قم بعد ذلك من 
مستعرض المكونات نقوم باختيار المجJl Button مÛ Events‏ 
Interaction Using Transporter Events‏ 


Caption 


Butlon Events 


GOTFOCUS 
LOSTFOCUS 


4ا 


° JFMessage (Information) 
Call Resistance 


هنا تحدد الحدث وهو 
الضخط على الزر 


[ Again 1] آل‎ Cancel | 


8: 
= 
1 
4 


1ظ ۳ 4 14 


والان مع الزر الثاني وهو زر اغلاق البرنامج كما سبق وذكرنا ننشط على 
Even‏ nہtt0اB‏ الخاصة بالزر الثاني نقوم باختيار من مستعرض 
lلanكونlٽ Button Events ۃî Events‏ 


Interaction Using Transporter 


Button Events 


e 


TI TT FT THEE 7T 


هد لاء من الاحات ر الان اا الاجر الكاض ا الاير 
الذي يدخله المستخدم في ا ×0 ]"extB‏ قد ندال عن الاأجراء الثاني وهو 
اغلاق البرنامج عزيزي القارىء فقد اختصرنا هده الخطوة في جملة 
واحدة وهي ()عھع]ع۲. w111‏ 

- من المجال الخاص بالبرمجة ية Define Procedure jii‏ 


Components Browser 


tGomponents in Domain 


Define Procedure 


Define Function 

Scope of Variable 

Return Waluê 

tall Procedure 

tall Function 

Release PubliNPrivate Variable 
Sel Procedure To 


٣ 


TT ET FI CH [ECS KEE 


Select Domain : 


Domain Electrons list‏ ا 
virtual Data Files‏ 


الان في الكود البلوك الخاص بالاجراء سوف نقوم بأخذ القيمة الموجودة 
في ال ×0 ۲×8 ونخبأها في متغیر اسمه مثلا اسم 
Components Browser‏ 


Select Domain : Gomponents in Domain 


| Label Class 


n) E 


نلاحظ اننا عندنا ثلآثة صفحات نحن سوق نعمل على الصفحة الثانية وهي 
Get Propert‏ 
Interacilon Using Transporter‏ 


ي خد ك qk‏ 
TextBOxX‏ 


perties | 


| Textbox Class - Get Properly 


| 
Object Name | win 1 laxt1 


YWariable 


اسم المتغير الذى سوف نخباً 
قيه قيمة التاکست بوكس 


Components Browser 


Select Domain : Gomponents in Domain 


u IIE Statement 
TT أ1‎ - 


0p 


Error Handling (Try - Gatch J 


IF Statement 


IF : Condition 


LIELSEIF : Condition 


LIElse 


اللاهر الذي سوق بدخله 
المستخدم لفتح برنامج الحاسبة 


ICT El Cem Eee 


الان في الكود بلوك الخاص بجملة الشرط ۴[ سوف نقوم ببرمجة خطوة 
فتح برنامج المفكرة عن طریق ]۴1 ما Exec‏ 
Interaction USing TranSporter‏ 


Execute Fils 


™ Ea en Fw 


وهكذا من باقي البرامج نقوم بتغيير اسم البرنامج مثلا الى : , tمأجمكئص‏ 
notepad , prefetch‏ 

لابد أنك لاحظت ان هذه الفكرة من المستحيل ان نقوم بكتابة جميع البرامج 
التي يتم فتحها لذلك سوف نرى في الخطوة الثانية فكرة رائعة لحل هذه 
المشكلة وهي للمهندس الحبيب : محمود فايد 


- في الحقيقة ان الطريقة الثانية رائعة وسهلة جداا ومختصرة أيضا 
ماعليك الا ان تحذف كل جمل الشرط 1۴ سوف يصبح البرنامج في 
خطوتين هما الخطوة الاولى وهي أخذ القيمة الموجودة في ال 
×0 10×8 ونخبأها في متغير اسمه ٥٤‏ سم والخطوة الثانية هي عن 
طریق ۴1٥‏ عاںcع×ع۴‏ واستعمال الماکرو 

کے د رت الاس ارا ا ا ا 

وف ترم انال الم اکرو ےک لكي نخ ابر اذى بفظه الست في 

ال ×0 1٥×8‏ محل التنفيذ 

Interacilon Using Transporter 


المسئخدم في التاكکست بو گس والذڈي 
سوق تخبأه في المنخير الذي اسك 
pwct‏ 


٣ 
4 ۶ ۶ 


وا کون قد اخقصرد ار تانح فی خط رقن يذل من انل حل 
الشرط 1۴ 

قد بالتعديل على الفورم من خلال مصمم النماذج وقم بتنفيذ البرنامج وأكتب 
أمرا في ال ]١×80×‏ وليكن متلا : ل2مه†مم سوف يقوم البرنامج بفتح 
برنامج المفكرة 


٠‏ وبهذا نكون قد وصانا الى نهاية هذا الكتيب الصغير بحمد الله وعونه 
وفي الاخير أشكر الاخ الحبيب محمود فايد على الفكرة الرائعة الذي 
امدنى بها وأشكره أيضا على تحميسي لكتابة هذا الكتاب وأشكر أيضا 
الاخ الكريم : سامح كامل و الله تعب معنا كثيراااا رغم ظروفه في 
اعداد مقدمات الكتب التي يتم اصدارها ولا أنسى الاخ العزيز آبو 
السعود والذدي يقدم سلسلة رائعة عن الفيزياء والبرمجة بدون كود 
وأقول له الله يكون في عونك ان شاء الله يارب. 


محمد أمين دبابسية 


